home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / COMPILER / VP10B003 / VPC / SOURCE / TV / TV700701.PAT < prev   
Text File  |  1995-06-21  |  2KB  |  68 lines
  1. Comparing BP700\OBJECTS.PAS and BP701\OBJECTS.PAS 
  2. 1582c1582
  3. <         OR      AX,AX
  4. >         OR      AL,AL
  5. 1613a1614
  6. >       FillChar(AItems^, ALimit * SizeOf(Word), 0);
  7. 1626c1627,1628
  8. <         FreeMem(Ptr(SegList^[Dif], 0), BlockSize);
  9. >         if SegList^[Dif] <> 0 then
  10. >           FreeMem(Ptr(SegList^[Dif], 0), BlockSize);
  11. 1637c1639
  12. <         if NewBlock = nil then Exit
  13. >         if NewBlock = nil then Break
  14. 1640a1643,1644
  15. >       if Dif = ALimit then
  16. >         ChangeListSize := True;
  17. 1645,1646c1649
  18. <   end;
  19. >   end else ChangeListSize := True;
  20. 1755c1758
  21. <         OR      AX,AX
  22. >         OR      AL,AL
  23. 1793c1796
  24. <         OR      AX,AX
  25. >         OR      AL,AL
  26. Comparing BP700\DIALOGS.PAS and BP701\DIALOGS.PAS 
  27. 1038a1039,1051
  28. > 
  29. >   function AppendError(Validator: PValidator): Boolean;
  30. >   begin
  31. >     AppendError := False;
  32. >     with Validator^ do
  33. >       if (Options and voOnAppend <> 0) and (CurPos <> Length(Data^))
  34. >           and not IsValidInput(Data^, True) then
  35. >       begin
  36. >         Error;
  37. >         AppendError := True;
  38. >       end;
  39. >   end;
  40. > 
  41. 1045c1058
  42. <       if not Validator^.Valid(Data^) then
  43. >       if AppendError(Validator) or not Validator^.Valid(Data^) then
  44. Comparing BP700\HISTLIST.PAS and BP701\HISTLIST.PAS 
  45. 116,118d115
  46. <         INC     BL
  47. 119a117,119
  48. >         INC     BX
  49. >         INC     BX
  50. >         INC     BX
  51. Comparing BP700\OUTLINE.PAS and BP701\OUTLINE.PAS 
  52. 903,904c903,906
  53. <       if ChildList <> nil then DisposeNode(ChildList);
  54. >       DisposeNode(ChildList);
  55. >       DisposeNode(Next);
  56. >       DisposeStr(Text);
  57. >       Dispose(Node);
  58. 906d907
  59. <   Dispose(Node);
  60. Comparing BP700\STDDLG.PAS and BP701\STDDLG.PAS 
  61. 947c947
  62. <   RelativePath := not (S <> '') and ((S[1] = '\') or (S[2] = ':'));
  63. >   RelativePath := not ((S <> '') and ((S[1] = '\') or (S[2] = ':')));
  64. Comparing BP700\VIEWS.PAS and BP701\VIEWS.PAS 
  65. 3772c3772
  66. <     if Flags and wfGrow + wfMove <> 0 then
  67. >     if Flags and (wfGrow + wfMove) <> 0 then
  68.